home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Games Extra 1996 September
/
Amiga Games Extra CD-ROM 9-1996.iso
/
archive
/
spiele
/
demoversionen
/
poing.dms
/
poing.adf
/
Amiga_E_Tools
/
BootLock.GUI.e
< prev
Wrap
Text File
|
1996-06-30
|
569b
|
40 lines
/*VER$1.0 ©1996 Deutschmann Walter*/
/*system read/write lock unlock requester*/
OPT OSVERSION=39
PROC main()
DEF arg,text[80]:STRING
text:='Lock/Unlock your BootDevice?'
arg:=EasyRequestArgs(0,[20,0,'©1996 Deutschmann Walter',text,' Lock | Unlock '],0,NIL)
WriteF(' \n \n ©1996 Deutschmann Walter \n\n')
IF arg=1
Execute ('lock sys: on >NIL:',NIL,NIL)
WriteF(' System Status: Read only!')
ENDIF
IF arg=0
Execute ('lock sys: off >NIL:',NIL,NIL)
WriteF(' System Status: Read/Write')
ENDIF
CleanUp(1)
ENDPROC